110 CLS:CLEAR12000:DIMT$(16,4):PPINT:PRINT"Placez la disquette SOURCE, <ENTREE>";:A$=INPUT$(1):FOR P=0 TO 4:FORS=1TO16:T$(S,P)=DSKI$(0,P,S):NEXTS,P:BEEP
128 PRINT:PPINT"placez la disquette BUT, <ENTREE>";:A$=INPUT$(1):FOR P=0 TO 4:FORS=1TO16:DSK0$ 0,P,S,T$(S,P):NEXTS,P:BEEP:CLEAR:END